home *** CD-ROM | disk | FTP | other *** search
/ 64'er Special 35 / 64er_Magazin_Sonderheft_35_19xx_Markt__Technik_de.d64 / listing 1 (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  803b  |  29 lines
  1. 90 goto 200
  2. 100 rem >> up - schleife <<
  3. 110 :
  4. 120 print" <taste>";:wait 198,1:poke198,0:fori=1to7:printchr$(20);:next
  5. 130 :
  6. 140 for i=1 to 100:next
  7. 150 ti$="000000":for i = 0 to 255:poke 53280,i and 15:next:printti$:return
  8. 160 :
  9. 170 rem >> up - cursorblinken aus <<
  10. 180 :
  11. 190 poke 207,0:poke 204,1:print" ":return
  12. 200 rem -------------------
  13. 210 rem -- hauptprogramm --
  14. 220 rem -------------------
  15. 230 :
  16. 240 printchr$(147)"demo fuer systembeschleunigungen (basic)";
  17. 250 print"----------------------------------------"
  18. 260 print"1) normalzustand";:gosub100
  19. 270 :
  20. 280 print"2) verkuerzter interrupt";:poke788,52:gosub 100:poke 788,49
  21. 290 :
  22. 300 print"3) haeufige interrupts";:poke 56325,20:poke204,0:gosub100:gosub170
  23. 310 :
  24. 320 print"4) seltene  interrupts";:poke 56325,150:poke204,0:gosub100:gosub170
  25. 330 sys64931:rem normalzustand ein
  26. 340 :
  27. 350 print"5) bildschirm abgeschaltet ";:poke53265,peek(53265) and 239:gosub140
  28. 360 poke 53265,peek(53265) or 16:print"** ende **"
  29.